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BASSSDISPATCH_T 1o=300" 138? 90: 12:38 AX-11 of 
14-Sep-1984 11:54:5 BASRTL_SRCi eae lsbar” - 2:1 
MODULE BASSSDISPATCH_T ( ! 1/0 dispatch cables for all languages 
IDENT = '1-021' ' File: BASDISPAT.B32 Edit: PLL1021 


BEGIN 


RRR RARER AEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


te 
® 
® 
® 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. : 
*® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
® 
*® 
*® 
y 
® 
* 


FOR THE USE OR RELIABILITY OF ITS 


!* DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 


I 
!* SOFTWARE ON EQUIPMENT WHICH 
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. lee 
0031 ' FACILITY: BASIC I/0 
003 ! 
Oo ABSTRACT: 
0035 : This module contains the Global dispatch tables for the UDF (user data 
0036 ! formatter) level and REC (record) level for BASIC. 
0037 ; In addition it contains a routine which signals errors for invalid 
0038 : statement types. 
0039 ! 
0040 ' ENVIRONMENT: 
41 0041 : 
4g aye AST reentrant - all OWN storage is read only 
re} ooee : AUTHOR: Donald G. Petersen . CREATION DATE: 07-Dec-78 
46 0046 ! MODIFIED BY: 
47 0047 ! 
48 0048 ‘ DGP, re tla : IS ad lh 1-001 
49 0049 ! 1-001 = original. 
50 0050 ! 1-002 - Add some BA my to OTSS$SIGDIS_ERR. DGP 08-Dec-78 
51 0051 ! 1-003 - Change dispatch tables to lon vores. bGr 11-Dec-78 
26 tt) ! 1-004 = Add Basic READ to dispatch tables. 12-Dec-78 
5 005 ! 1-005 = Change FORLNK require file to OTsinK. oP ies 22-DEC-78 
54 Ope ! 1-006 = Signal the proper errors in the error routine. DGP 18-Jan-79 
55 055 ! 1-007 = Change file name to oreo ° s22°98,¥ with RTL standards 
56 8036 ! and internal comments. JBS 2 
57 005 !' 1-008 - Use 32-bit addresses for 1 Es ey is 27-JAN-1979 


BASSSDISPATCH_T 
1-021 


E 15 
16-Sep-1984 00:19: +39 VAX-11 B 
14-Sep-1984 11:54:5 UBASRTLeS 
0058 1 ! 1-009 = Track SBL'"s changes to the statement types in the ISB. 
0089 1 i jBS 09-FEB-1979> sie 
0060 1 ! 1-010 = Add GET and PUT. DGP 19-Feb-79 
ope 3 } 1-011 = A a aa, USING and straighten up a lot of Basic stuff. DGP 
$oes 1 i 1-013 - had OAT INPUT. DGP 0S-Jun-79 
0064 1 ! 1-015 = Add MAT PRINT. DGP 15-Jun-79 
0065 1 ! 1-014 = Add cons ining FORTRAN piatenans t ites Indexed REYAITE. 
BR08 1! keyed READ nternes READ and SBL a eat 979 
0067 1 ! 1-015 = Remove all of the FORTRAN pM on hey 2 re moved to 
0068 1! FORSSDISPAT tH’ T. Rename this a A. B SSSDISPATCH. T. 
Bo? 1! JBS 26-JUN-1979 
070 1! 1-318 - Use ISB $s sy" mbols for table Len ye 1998" 12=JUL-1979 
071 1 ! 1-017 = Add BASS$SSIGDIS JSB. JBS O01- 
Ore 1! 1-018 - Add Basic MAT READ and MAT LiNPUT bGP 11-0ct-79 
0075 1 ! 1-019 = Add RECS for a Print. ae te =-Oct- 
0074 1! 1=35¢ - Add BASSSREC_M G -Oct 
Bate : 1-021 = Add Basic GET" # RFA and FIND ~ RFA. PLL 4=-Jun-1982 
0077 1 
0078 1 !<BLF/PAGE> 
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821 131 38e 99:42:83 = EBASa te ’SReSeaspisPat 682;1 9 02) 
80 0079 ' 
81 0080 ' SWITCHES: 
oes 
Be 098s SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
86 So8s ! 
87 po88 ' LINKAGE 
88 008 ! 
89 0088 
ey 3082 REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages 
3 $819 ! 
9 0520 ' TABLE OF CONTENTS: 
94 0521 ! 
95 05 ‘ 
96 05 FORWARD ROUTINE 
97 0524 BASSSSIGDIS_ERR : CALL_CCB NOVALUE, ' oe a dispatch error 
98 0525 BASS$SIGDIS_JSB : JSB_ODFO NOVALUE; ' (J8B entry point) 
99 0526 
B2st ! 
1 0528 ' INCLUDE FILES: 
2 #94 ! 
3 0530 
rn R230 REQUIRE ‘RTLIN:RTLPSECT'; 
O69? REQUIRE ‘RTLML:OTSISB'; ' Define ISB offsets 
0796 ' Define LUB offsets 
0936 
0937 
0938 MACROS: 
0939 


NONE 

EQUATED SYMBOLS: 
NONE 

EXTERNAL REFERENCES: 


EXTERNAL LITERAL 
OTS$_FATINTERR, 
OTS$~10_CONCLO: 


EXTERNAL ROUTINE 


954 LIBSSTOP : NOVALUE; ! Signal an error and stop 


'¢ 
Formatting level of abstraction 


WN —O O@NOVUEWN “OC OOBNOUESWN "CO 0ON 
ooOo0o 
aba ahead 


EXTERNAL ROUTIN 

BASSSUDF _RLO : JSB_UDFO NOVALUE, ! Initialize read List-directed 
BASSSUDF-RL1 : CALC ce. Transmit one 1/0 List element 
BASSSUDF-RLO : JSB_ODF9 NOVALUE, Terminate read list directed 
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1 
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1 
1 
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1 
1 
1 
1 
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1 
1 
} 
: REQUIRE ‘RTLML:OTSLUB'; 
1 
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$332 


BASSSUDF _WFO : CALL_CCB NOVALUE, 
BASSSUDF"WF1 : CALL-CCB NOVALUE, 
BASSSUDF_WF9 : JSB_ODF9 NOVALUE, 
BASSSUDF-WLO : JSB"UDFO NOVALUE, 
BASSSUDF_WL1 : CALC ce NOVALUE, 
BASSSUDF_WL9_: JSB_ODF9 NOVALUE 

BASSSUDF-RMFO : JSB_UDFO NOVALUE, 
BASSSUDF_RMF1 : CALC_CCB NOVALUE, 
BASSSUDF_RMF9 : JSB_ODF9 NOVALUE; 


4 0:19:39 ree Bliss-32 Ps els Page 4 
4 11:54: BASRTL.SRCJBASDISPAT.B52;1 ; (2) 


Initialize write formatted 
Transmit one 1/0 List element 
Terminate write formatted 
Initialize write list-directed 
Transmit one 1/0 List element 
Terminate write Llist-directed 
Initialize read memory formatted 
Transmit one 1/0 List element 
Terminate read memory formatted 


'¢ 
} Record processing level of abstraction 
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EXTERNAL ROUTINE 
BASSSRE 
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s 4 1 

>? 1 

es 1 

3% 1 

a 1 

; 3 1 

es 1 

. 1 

. -y 1 

, 3 1 

.-¥ 1 

. 3 1 

eS 1 

2 } 

ec % 0979 #1 SSSREC_RSLO : JSB_RECO NOVALUE, ! Initialize read list-directed 

; 1 0980 1 BASSSREC_RSL1 : JSB_REC1 NOVALUE, ! Transmit one recor 

:-% 0981 1 ett ry ba hy : JSB_REC9 NOVALUE, ! Terminate read List-directed 

. 0982 1 BASSSREC_WFO : JSB_RECO NOVALUE, ! Initialize write formatted 

; 3 09835 1 BASSSREC_WF1 : JSB_REC1 NOVALUE, ! Write one record 

_ 0984 1 BASSSREC_WF9 : JSB_REC9 NOVALUE ! Terminate write formatted 

: 4 0985 1 BASSSREC_WSLO : JSB_RECO NOVALUE, i Initialize write List-directed 
. ¥ 0986 1 SSSREC_WSL1 : JSB_REC1 NOVALUE, ! Write one record . 

BF 0987 1 BASSSREC_WSL9O : JSB_REC9 NOVALUE, ! Terminate write List-directed 

; } 0988 #1 SSSREC_RMFO : JSB_RECO NOVALUE, ! Initialize read memory formatted 
* 9 0989 1 BASSSREC_RMF1 : JSB_REC1 NOVALUE, ! More initialization 

3 4% 0990 1 BASSSREC_RMF9 : JSB_REC9 NOVALUE, ! Terminate read memory formatted 
> 164 0991 1 BASSSREC_GSE : JSB_REC9 NOVALUE, ! GET sequential (RMS) one record 
3; 165 0992 1 BASSSREC_PSE : JSB_REC9 NOVALUE ' PUT sequential (RMS) one record 
> 166 0993 1 SSREC"MPRO : JSB_REC9 NOVALUE, i terminate Mat Print 

3; «167 0994 1 BASSSREC_MINO : JSB_RECO NOVALUE, ! initialize MAT INPUT 

: 168 0995 1 BASSSREC_MIN1 : JSB_REC1, ' read one record 

> 169 0996 1 BASSSREC_MIN9 : JSB_REC9 NOVALUE, ! terminate MAT INPUT 

: 170 0997 1 BASSSREC_MLI1 : JSB_REC1, ! Mat Linput - read one record 

s Wi 0998 #1 BASSSREC_MRE1 : JSB_REC1; ! return failure - MAT READ 

: te 0999 1 

s Ws 1000 1! 

3 «174 1001 1 ! OWN STORAGE: 

3 175 1002 1! 

; 176 1005 1 DISPATCH_PSECTS (BAS); ! Define GLOBAL PSECTs same as code 
: 177 1004 1 ! so short offsets to reach 

: «178 1005 1 !<BLF/PAGE> 
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BASRTL.SRCJBASD 


; 180 1006 1 !+ 

> «(181 1909 1 ! GLOBAL DISPATCH VECTORS (indexed by 1/0 statement type numbers): 

3 i8¢ 1308 1 ! Connects the first level of abstraction (UPI) to the 

s 1 1009 1 ! second level (UDF). Note: The comments down the 

3: «6184 1010 1 ! side describe the 1/0 statement index (UPI level) into the 

; «#6185 1011 1°! dispatch table rather than the external routine contained in 

> «186 1ol¢ 1! the entry (UDF level). The entries are the name of the | 

s 187 101 1 ! User data formatters (UDF Level = 2nd level of abstraction) - 

3; 188 1014 1! First letter: R = READ, W = WRITE; second letter: F = formatted, 

> 189 1015 1! w= unformatted, L = List-directed. 

: 190 1016 1! Declare as GLOBAL rather then GLOBAL BIND because 

; «6191 1017 1 ! BLISS doesn't allow BIND table = ... = table). 

3 135 1016 1 !- 

; 1019 1 ‘+4 ; : 

> «194 1020 1 ! Initialization of UDF Level: 

3 «6195 196 1 !- 

> 196 10 ¢ 1 

3: 197 19s 1 GLOBAL 

: 198 19 4 1 BASSSAA_UDF _PRO : VECTOR CISBSK_BASSTTYHI = ISBSK_BASSTTYLO + 2,, SIGNED] INITIAL ( 
: 199 1025 1 BASS$SIGDIS_JSB = BASSSAA_UDF_PRO, ! 1/0 On closed unit 

; 200 1026 1 ! statement type: 

3; 201 1027 1 BASSSUDF _WLO - BASSSAA_UDF_PRO, ' BASIC Print 

; 20 1028 1 BASSSUDF_RLO - BASSSAA_UDF PRO !' BASIC A ingut 

; 20 1029 1 BASS$SIGBIS_JSB - BASSSAA_ODF PRO, ' BASIC PU place holder 

3 204 1030 1 BASSSUDF_RLO = BASSSAA_UDF_PRO, | BASIC Input 

; 205 1031 1 BASSSUDF WFO = BASSSAA_UDF—PRO, i BASIC Print Using 

3 206 1032 1 BASSSUDF_RLO - BASSSAA_UDF PRO ' BASIC input Line 

; 207 1033 1 BASSS$SIGDIS JSB - BASSSAA_ODF PRO, | BASIC DELETE place holder 

; 208 1034 1 BASSSUDF _RMFO - BASSSAA_UDF PR ' BASIC Read memory formatted 

; 209 1035 1 BAS$$SIGDIS_JSB - BASSSAA_UDF_PRO, | BASIC UPDATE place holder 

; 210 1036 1 BASS$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC GET sequential 

s ei 1037 1 BASS$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC RESTORE place holder 

s ete 1038 1 BASS$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC SCRATCH place holder 
ews 1039 1 BASSSSIGDIS_JSB = BASSSAA_UDF_PRO, ! BASIC PUT relative place holder 
> 214 1040 1 BASSSSIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC GET relative place holder 
s 215 1041 1 BASS$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC FIND relative place holder 
; 46 1g66 1 BASS$S$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC UNLOCK place holder 

2, a7 1043 1 BASS$SIGDIS_JSB = BASSSAA_UDF_PRO, ! BASIC FREE place holder 

; 218 1044 1 BASS$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC GET indexed place holder 
: 2 1045 1 BASSS$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC PUT indexed piace holder 
; 220 1046 1 BASSS$SIGDIS_JSB - BASSSAA_UDF_PRO, ! BASIC MOVE FROM/MOVE TO place holder 
3 $s! 1047 1 BASS$SIGDIS JSB - BASSSAA_UDF_ PRO, ! BASIC FIND indexed place holder 
g $§ 1048 1 BASSSUDF_RLO - BASSSAA_UDF_ PRO ' BASIC MAT INPUT 

3 $$ 1049 1 BASSS$SIGBIS_JSB - H SSAA_ODF PRO, i‘ BASIC RESTORE place holder 

; 4 1050 1 BASSSUDF_RLO - BASSSAA_UDF_PRO ' BASIC eventually MAT LINPUT 

; $$? 1051 1 BASS$$SIGDIS_JSB - BASSSAA_ODF_P 0, ! BASIC FIND seq. place holder 

: 226 1936 1 BASS$SIGDIS JSB - BASSSAA_UDF PRO, ! BASIC piece holder 

3: 2e7 1053 1 BASSSUDF_WLO - BASSSAA_UDF_P ' BASIC MAT PRINT 

; 328 1054 1 BASSSUDF~RMFO - BASSSAK_UDF_PRO i BASIC MAT READ 

: $3 1055 1 BAS$$SIGDIS_JSB - BASSS$KA_UDF_PRO ' BASIC GET by RFA place holder 

3 $3 1928 : at /eeas BASS$$SIGDIS_JSB - BASSSAA_UDF ~PROS; ' BASIC FIND by RFA place holder 
3 '< > 


——— 
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1-021 14- et 7 9:19:38 BASRTL BR C BASDIS par age, 57 . . (4) 
FR JERE ftaeeeantt« stnae 170 tae atm 
3 ' Transmit a single st elewen 
: $35 1986 1 i . | 
> 236 1061 1 | 
; 237 106¢ 1 GLOBAL | 
: 8 1065 1 BASSSAA _UDF_PR1 : VECTOR CISBSK ery = ISBSK_BASSTTYLO + 2,, SIGNED] INITIAL ( 
; es 1064 1 “BASSSSIGDIS_ERR = BASSSKA_ PR1, ! 1/0 On closed unit 
; 240 1065 1 ~srofenent $7pe: 
: st 1066 1 BASSSUDF _WL1 - BASSSAA UDF _PR1, ; ASIC phe” 
: tg 1067 1 BASSSUDF-RL1 = BASSSAA_UDF~PR1 ' BASIC L 
; 24 1068 1 BASSSSIGBIS_ERR = BASSSAA_ODF PRI, ! BASIC place “older for PUT 
: ste 139? 1 UDF_RLT = BASSSA _UDF_PRT, ' BASIC 
> 245 1070 1 BASSSUDF_WF1 = BASSSAA_UDF_ PRI. ! BASIC Print Using 
: seg 1071 1 tite RL1 = BASSSAA_UDF-PR1 ' BASIC Input L 
3; 247 126 1 BASSS$SIGBIS_ERR = BASSSAA_ODF PRI, ! BASIC DE Ere. piece holder 
> 248 1073 1 Bassi F_RMF1 = BASSSAA_UDF PR1 ! BASIC Read memory formatted 
; 249 1074 1 BASSSS1GDIS, ERR - BASSSKA. UBF. PAI, ' BASIC UPDATE place holder 
; 250 1075 (1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC GET seq. piece holder 
3 21 1076 1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC RESTORE place holder 
: $26 1077 1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC SCRATCH place holder 
; & 1078 1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC PUT relative place holder 
> 254 1079 1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC GET relative piace holder 
: 255 1080 1 BASSSSIGDIS-ERR = BASSSAA_UDF~PR1, | BASIC FIND relative place holder 
; 256 1081 1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC UNLOCK place holder 
3 gor 1082 1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC FREE place holder 
; 258 1083 1 BASSS$SIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC GET indexed place holder 
s aor 1084 1 BASSSSIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC PUT indexed paece he holder 
; 260 1085 1 BASSS$SIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC MOVE FROM/MOVE TO place holder 
s 261 1086 1 BASSSSIGDIS_ERR - GASSSAA. UDF-PR1, ! BASIC FIND indexed place holder 
: $06 1087 1 BASSSUDF_RLT = BASSSAA_UDF_PRT ' BASIC MAT 
; 26 1088 1 BASSS$SIGBIS_ERR - BASSSAA opr PRI, ' BASIC RESTORE place holder 
3: 264 1089 1 BASSSUDF_RLT - BASSSAA UDF_PRT, ' BASIC Mat Linput 
: 265 1990 1 BASS$SIGBIS_ERR - BASSSAA_ODF_PR1, ! BASIC FIND seq. place holder 
: 266 1091 1 BASSS$SIGDIS_ERR = BASSSAA_UDF_PR1, ! BASIC Rat Prin older 
; 267 109% 1 BASSSUDF_WLT - BASSSAA_UDF_PRT ! BASIC MAT P 
> 268 1093 1 BASSSUDF-RMF1 - BASSSAK_UDF_PR{ i BASIC MAT R 
; 269 1094 1 BASSS$SIGDIS_ERR - BASSS$AA_UDF PR1, | BASIC GET by AREA place holder 
3; er 1095 1 BASSSSIGDIS_ERR - BASSSAA_UDF “PRIS; ' BASIC FIND by RFA place holder 
; a 1096 1 !<BLF/PAGE> 
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984 11:54 BASRTL’ SRC SBASDIS SPAT .B352;1 (5) 
: 3t3 ion 4 t tne LA ifet entre csi 
3 ! En st entry points: 
3 75 1099 1 !- 
3 76 1100 1 
$ 77 1101 1 GLOBAL 
$ 78 1108 1 BASSSAA UDF _PRO : VECTOR CISBSK rere! = ISBSK_BASSTTYLO + ioe SIGNED] INITIAL ( 
3 79 110 1 BASSSSIGDIS _/SB - BASSSKA PRI, ! 1/0 On closed un 
; 280 1104 1 1/0 ratetonene ig +e 
3; 281 1105 1 BASSSUDF _WL9 - BASSSAA UDF _PRY, Print 
3 see 1106 1 BASSSUDF-RLO = BASSSAA_UDF “PRI. ! Basie Linput 
: 2 1107 1 BASSSSIGBIS JSB = BASSSAA_ODF PRO, ' BASIC lace holder for PUT 
: see 1108 1 BASSSUDF_RLO - BASSSAA, UDF_PRO. ' BASIC as oe 
3 85 1109 #1 BASSSUDE “UES = BASSSAA_UDF_PRO, ' BASIC P ~ pine 
; 286 1110 1 BASSSUDF-RLO = BASSSAA_UDF “PRO, ' BASIC I seput 
3; 287 1111 «1 BASSS$SIGBIS JSB = BASSSAA_ODF PRO, ' BASIC D ePete” Ls holder 
: 288 116 1 BASSSUDF_RMF9 = BASSSAA_UBF PRO ! BASIC Read memory formatted 
3; 289 111 1 BASS$SIGBIS_JSB - BASSSKA. UBF. PRO, ' BASIC UP os peere holder 
; 290 1114=«1 BASS$S$SIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC GET piece holder 
: $3) oe BASSSSIGDIS_JSB = BASSSAA_UDF_PR9, |! BASIC RESTOR a) ace holder 
3 4 1116 «1 BASS$S$SIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC SCRATCH place holder 
; & 1117 «11 BASSSSIGDIS_JSB - BASSSAA_UDF_PR9, ! BASIC PUT relative place holder 
3 soe 1118 #1 BASSSSIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC GET relative place holder 
s 95 1119 1 BASSS$SIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC FIND relative place holder 
: 296 1120 1 BASSS$SIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC UNLOCK place holder 
: 297 1121 «1 BASS$SIGDIS_JSB - BASSSAA_UDF_PR9, ! BASIC FREE place holder 
; 298 1122 1 BASSS$SIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC GET indexed piece potaer 
: $38 1123 1 BASSS$SIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC PUT indexed pe ace holder 
: 00 1124 1 BASSS$SIGDIS_JSB = BASSSAA_UDF_PR9, ! BASIC MOVE FROM/MOVE TO place holder 
s 301 1125 1 BASSS$SIGDIS_JSB - BASSSAA_UDF PRO, ! BASIC FIND rpagnes place holder 
3; 302 1186 1 BASSSUDF_RLO = BASSSAA_UDF ! BASIC MAT INPU 
s 305 1127 1 BASS$$SIGDIS_JSB - BASSSAA_ODF PRO, ' BASIC RESTORE ie holder 
: 304 1128 #1 BASSSUDF_RLJ = BASSSAA_UDF_P ' BASIC Mat Linput 
: 305 ig 1 BASS$SIGDIS_JSB - BASSSAA_ODF_PR9, | BASIC FIND seq, place holder 
; 306 1130 1 BASSS$SIGDIS JSB - BASSSAA_UDF PRO, ! BASIC Rat bain older 
s Sor 1133 8 BASSSUDF _WL9 - BASS$ UDF _P ' BASIC MAT ey} = 
: 308 1132 1 BASSSUDF-RMF9 - BASSSAK_UDF PRS, | BASIC MAT R 
: 309 1133 (1 BASSSSIGBIS_JSB - BASSSAA _UBF PRO ' BASIC GET “4 RFA place holder 
: 310 1134 «1 BASS$SIGDIS_JSB - BASSSAA_ UDF “PRIS; ! BASIC FIND by RFA place holder 
: oy 1135 1 !'<BLF/PAGE> 
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s 313 11 1 !¢ 

3 14 11 . 1 ! Dispatch tables foce call rpeers processing level of abstraction 

s 315 1138 1°! routines (REC level). Used to connect énd Level of 

: 1$ 1139 1! $petrect ton fur) to third level of abstraction (REC). 

: 1 1140 1! The d sm tables are indexed by 1/0 statement type (Ist 

; 318 1141 71! nk, UPI 

; 2 1308 1} Record processing routine names have the form: 

3 st 1145 1! First letters: R = _READ, w= WRITE)); 

3 1 1144 1 ! Second letters: S = sequential, D = direct, M = memory)); 

; $§ ez : : third letters: fF = formatted, U = unformatted, L = List-directed. 

3 324 1147 1 !¢4 

3 5 1146 1 | Initialize entry points (read first record or setup 

s 358 1149 1 ! output buffer). 

3; 327 1150 1 i- 

; 328 1151 1 

3 se 1136 1 GLOBAL 

; 330 115 1 BASSSAA_ REC_PRO : VECTOR CISBSK ee - ISBSK_BASSTTYLO + 2,, SIGNED) INITIAL ( 
s 331 1154 1 “BASSSSIGDIS _/SB = BASSSKA PRO, ! 1/0 fo closed unit 

i 1155 1 1/0 “statenent type: 

s 339 1156 1 BASSSREC_WSLO - BASS$AA -REC_P ! BASIC Print 

3; 334 tto7 3 BASSS$REC_R SLO = BASS$$AA_REC “PRO. ! BASIC Linput 

s oe 1158 1 BASSSRECHPSE = BAS$S$AA_REC_PRO ! BASIC PUT sequential 

: 336 1159 1 BASSSREC_RSLO - BASSSAK REC PRO, =! BASIC Input 

r Sor 1160 1 BASSSREC_WFO - BASSSAA_REC_P ' BASIC Print Using 

; 338 1161 1 BASSSREC-RSLO = BASSSAA_REC_PRO, / BASIC Input Line 

3; 339 1106 1 ASSSSIGDIS_JSB - BASSSAA_REC_PRO, BASIC DELETE place holder 

: 340 1163 1 AS RMFO = BASSSAA_REC_PRO ! BASIC Read memory formatted 

: 341 1164 1 AS$$SIGDIS_JSB = BASS$$AA_REC PRO, i‘ BASIC UPDATE place holder 

: 342 1165 1 ASSS$REC_GSE - BASS A Rete 0 ' BASIC GET sequential 

>; 343 1166 1 BASS$$SIGDIS_JSB - S$SAA_REC_PRO, ! BASIC RESTORE place holder 

3 344 1167 1 BASSSSIGDIS_JSB - BASSSAA_REC_PRO, |! BASIC SCRATCH place holder 

3 «345 1168 1 BASS$SIGDIS_JSB = BASSSAA_REC_PRO, ! BASIC PUT relative place holder 
3; 346 1169 1 BASS$SIGDIS_JSB - BASSSAA_REC_PRO, ! BASIC GET relative place holder 
; 347 1170 1 BASSS$SIGDIS_JSB = BASSSAA_REC_PRO, ! BASIC FIND relative place holder 
; 348 1171 «1 BASSS$SIGDIS_JSB = BASSSAA_REC_PRO, ! BASIC UNLOCK place holder 

3; 349 1172 1 BASSSSIGDIS_JSB - BASSSAA_REC_PRO, ! BASIC FREE place holder 

s 350 1173 (1 BASSSSIGDIS_JSB = BASSSAA_REC_PRO, ! BASIC GET indexed place holder 
s 3351 1174 «1 BASSSSIGDIS_JSB - BASSSAA_REC_PRO, ! BASIC PUT indexed peace be holder 
; 352 1175 (1 BASSS$SIGDIS_JSB = BASSSAA_REC_PRO, ! BASIC MOVE FROM/MOVE TO place holder 
s 355 1176 1 BAS$$SIGDIS JSB - Sas Sead REC_PRO, ! BASIC FIND indexed place holder 
3 $e¢ 1177 (1 BASSSREC_MIRNO = BASSSAA_REC_PRO ' BASIC MA 

; 355 1178 #1 BASS$SIGBIS JSB - BASSSKA Kec PRO, i BASIC RESTORE indexed place hoider 
; 328 1179 1 BASSSREC_RSCO = BASSSAA_REC_PRO ' BASIC Mat Linput 

3; 357 1180 1 BASS$SIGDIS_JSB - BASSSKA. REC _PRO, ' BASIC FIND seq. place holder 

s 358 1181 1 BASSS$SIGDIS JSB - BASSSAA. REC-PRO, ‘ BASIC piece be holder 

; 359 1136 1 BASSSREC_WSCO - BASSSAA_REC_PRO, ' BASIC MAT PR 

g 0 1183 (1 BASSSREC_RMFO = BASSSAA_REC PRO ' BASIC MAT REA 

: 361 1184 1 BASSSSIGDIS_JSB - BASSSAA_REC _PRO ' BASIC GET by RFA place holder 

: $6 ie 1 BASS$SIGDIS_JSB - BASSSAA_ REC “PROS; ' BASIC FIND by RFA place holder 
s 6 1186 1 !<BLF/PAGE> 
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| BASSSDISPATCH_T 1bese -1984 00:19: AX-11 Bliss-32 V 
tt 14- at 7 90:32:39 BASRTL.SR RCIB BASDIS phy’ ago, 31 
3 5 1187 1 !¢ 

; 6 1188 1°! Intermediate transfer a record - read second and 

: 367 1189 1 ! subsequent records for this 1/0 statement or write 

: re 110 : a first and all but last record for this 1/0 statement. 

; 370 1138 4 

; 371 1193 1 GLOBAL 

3 36 1194 1 BASSSAA -REC_PR1 : VECTOR CISBSK eles - ISBSK_BASSTTYLO + ie’? SIGNED] INITIAL (¢ 
; 37 1195 1 “BASSS$SIGDIS_JSB - BASSSAA_REC_PR1, ! 1/0 fo closed uni 

3 ee 1196 1 ! 1/0 statement type: 

3; 375 1197 1 passenee -WSL1 = BASSS$AA -REC_PR1, ! BASIC Print 

: 3/8 1198 1 AS$S$ ove “RSL1 = BASSSAA_REC”PR1 ' BASIC Linput 

or 1199 1 BAS$$SIGDIS _JSB - BAS$$SAA_REC PR1, | BASIC lace holder for PUT 

; 378 1200 1 BASSSREC_RSC1 = BASSSAA_REC_PR1, ' BASIC 

; 379 1201 1 BASSSREC_WF1 = BASSSAA_REC_PR1 ' BASIC Print Using 

; 380 1208 1 BASSSREC_RSL1 - BAS ASSSAR REC Bri i BASIC Input 

s 381 1203 1 ASS$S$SIGBIS_JSB - ASSSRA REC PRi, ! BASIC DELETE or holder 

: 382 1204 1 BASSSREC_RMF1 = BA e A REC PR1 ' BASIC Read memory formatted 

; 383 1205 1 BASS$$SIGDIS_JSB - BASSSKA. REC. PRI, ! BASIC UPDATE place holder 

; 384 1206 1 BASSS$SIGDIS_JSB - BASSSAA_ REC “PRI, ! BASICGET seq. place holder 

3; 385 1207 1 BASS$$SIGDIS_JSB - BASSSAA =REC “PR1, ! BASIC RESTORE place holder 

; 386 1208 1 BASS$SIGDIS"JSB - BASSSAA_REC_PR1, ! BASIC SCRATCH place holder 

s «Ser 1209 1 BASS$SIGDIS_JSB = BASSSAA_REC_PR1, ! BASIC PUT relative place holder 
; 388 1210 1 BASSS$SIGDIS_JSB - BASSSAA_REC_PR1, ! BASIC GET relative place holder 
3; 389 1211 1 BASS$$SIGDIS_JSB = BASSSAA_REC_PR1, ! BASIC FIND relative place holder 
; 390 Igi¢ 1 BASS$SIGDIS_JSB - BASSSAA_REC_PR1, ! BASIC UNLOCK place holder 

; 391 121 1 BASS$SIGDIS_JSB - BASSSAA_REC_PR1, ! BASIC FREE place holder 

: 392 1214 1 BASSS$SIGDIS_JSB - BASSSAA_REC_PR1, ! BASIC GET indexed place sot po 

3; 393 1215 1 BASS$$SIGDIS_JSB - BASSSAA. “REC_PR1, ! BASIC PUT indexed plese hol 

3 394 1216 1 BASSS$SIGDIS_JSB - BASSSAA “REC _PR1, ! BASIC MOVE FROM/MOVE TO poe " holder 
s 395 1217 1 BASS$SIGDIS-JSB - BASSSAA_REC-PR1, ! BASIC FIND indexed place holder 
3; 396 1218 1 BASSSREC_MIN1 = BASSSAA_REC PRI, ! BASIC MAT 

s 397 1219 1 ASS$SIGBDIS_JSB - BASSS$AA_REC_PR1, ! BASIC RESTORE indexed Pisce holder 
3; 398 1220 1 BASSSREC_MLI1 = BASSSAA_REC PRI, ! BASIC eventually M 

3; 399 1221 1 BASS$SIGDIS_JSB - BASSSAA_REC_PR1, ! BASIC FIND seq; a ak holder 

; 400 1568 1 BASS$$SIGDIS JSB - BASSSAA_REC_PR1, ! BASIC Rat at holder 

: 401 1223 1 BASSSREC_WSC1 = BASSSAA_REC_PR1, ! BASIC MAT ~ 

; 402 1224 1 BASSSREC_MRE1 - BASSSAA_REC PRI, ' BASIC MAT 

: 4603 1225 1 BAS$S$SIGBIS_JSB - BASSSAA_ REC_PR1 ' BASIC GET by RFA place holder 

: 404 1226 1 BAS$$SIGDIS_JSB - BASSS$AA_REC “PRIS; ! BASIC FIND by RFA place holder 

; 405 1227 1 '<BLF/PAGE> 
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WONAOUVULSWN “OVONOULSWN "oO 
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=360713 

1! 
: End of 1/0 List record processing 
1 
GL 
1 “BASSS$SIGDIS_JSB - BASSSKA PRO, ! 
1 /0 “statenent t 
1 BASSSREC_WSLO - BASSSAA _REC_P 
1 BASSSREC-RSL9 = BASSSAA-REC “pro. i 
1 BASSS$SIGDIS _JSB - BASS$AA_REC PRO, / 
1 BASSSREC_RS 9 = BASSSAA_REC_PRO, ' 
1 BASSSREC_WF9 = BASSSAA_REC PRO i 
1 BASSSREC-RSL9 - BASSSAK_REC_PRO i 
1 BASS$$SIGDIS JSB - BAS$$AA_REC PRO, ' 
1 BASSSREC_RMF9 = BASSSAA_REC PR i 
1 BAS$S$SIGDIS_JSB = BASSSAA_REC_PRO, | 
1 BASSS$SIGDIS—JSB = BASSSAA_REC_PRO, 
1 BASSS$SIGDIS_JSB = BASSSAA_REC_PRO, 
1 BASSS$SIGDIS—JSB = BASSSAA_REC_PRO, 
1 BASSS$SIGDIS—JSB = BASSSAA_REC_PRO, | 
1 BASSS$SIGDIS—JSB - BASSSAA_REC_PRO, 
1 BASSS$SIGDIS—JSB = BASSSAA_REC_PRO, 
1 BASS$SIGDIS_JSB - BASSSAA_REC_PRO, | 
1 BASS$SIGDIS_JSB - BAS$SAA_REC_PRO, 
1 BASSS$SIGDIS—JSB = BASSSAA_REC_PRO, 
1 BASS$SIGDIS—JSB - BASSSAA_REC_PRO, | 
1 BASSS$SIGDIS—JSB - BASSSAA_REC_PRO, 
1 BASS$S$SIGDIS-JSB - BAS$SAA-REC PRO, ' 
1 BASSSREC_FIN9 = BASSSAA_REC PRO i 
1 BASS$SIGDIS JSB - BASS$%n REc 789, / 
1 BASSSREC_RSC” = BASSSAA_REC PRO i 
1 BAS$$SIGDIS_.SB - BASSSAA_REC_PRO, | 
1 BASS$S$SIGDISJaB - BASSSAA-REC PRO, ! 
1 BASSSREC_MPR9 = BASSSAA_REC_PR9, i 
1 ASSSREC”RMF9 = BASSSAA-REC PRI, \ 
1 BASS$SIGDIS_JSB - BASSSXA- REC_PRO, ! 
a BAS$$SIGDIS—~JSB - BASSSAA-REC_PRO); | 
' Return to normal PSECT definition 
DECLARE_PSECTS (BAS); 


1): 39 AX=-11 Bliss-32 V4.0-7 
BASRTL.SRCJBASDISPA 


OBAL 
BASSSAA -REC_PRO : VECTOR CISBSK nee - ISBSK_BASSTTYLO + in” SIGNED] INITIAL (¢ 


1/0 to closed uni 


BASIC 


tee 

Linput 

— holder-for PUT 
Print ghey 


spe tect place holder 

col memory formatted 
UPDATE ere holder 

GET se lace holder 
RESTOR a) ace holder 
SCRATCH place holder 
PUT relative place holder 
GET relative place holder 


UNLOCK place holder 

FREE place holder 

GET indexed place ot pe 
PUT indexed “pe ese be holder 
MOVE FROM/M 0 

Ay aeenes place holder 


Mat Linput 

FIND seq; place holder 
Rat Prin older 

AT P “ 


MAT R 
GET by RFA place holder 
FIND by RFA place holder 


FIND relative place holder 


E TO place holder 


RESTORE indexed place holder 


DISPATCH_T 16-Sep-19 4 99: 719: 39 AX=-11 Bliss-32 V4.0 
14-Sep-1984 11:54: BASRTL.SRC BASDISPAT. YF 231 


451 1271 1 ROUTINE BASSSSIGDIS_ERR : CALL_CCB NOVALUE = : 

t2§ 1 Lf: 1 

45 1275 1 S44 

tee : ue : FUNCTIONAL DESCRIPTION: 

$28 1276 1! Signal an error from the I/0 dispatch process. The error code 
45 le7r 1! eg hy. CLOSE to, on the statement type. One te gee type is 
458 1278 1! used CLOSE to catch dispatches on a closed unit, which con 
459 1279 1! cok, if the CLOSE is done as part of recursive 1/0. If the 
460 1¢80 1! statement type. ” not the one used by CLOSE, we have an error 
red : 81 : : in the RTL (an invalid statement type). 

46 1588 1 ! FORMAL PARAMETERS: 

464 12846 1! 

465 1285 1! NONE 

466 12B6 1! 

467 st 1 ! IMPLICIT INPUTS: 

468 1288 1! 

469 1289 1! ISBSB_STTM_TYPE.rb.r Statement type of 1/0 statement 
470 1290 1! 

471 1291 1 ! IMPLICIT OUTPUTS: 

47 1s3¢ 7% 

47 1293 1! NONE 

474 1294 1! 

475 1295 1 ! ROUTINE VALUE: 

476 1296 1 ! COMPLETION CODES: 

477 1297 1! 

478 1298 1! NONE 

479 1299 1! 

480 1300 1 ! SIDE EFFECTS: 

481 1301 1! 

482 1302 1! Signals OTS$_10 GONCLO “ the LUB is not open, or 

483 1303 1! OTSS_FATINTERR Tf i 

484 1306 1! 

485 1305 1 !-- 

486 1306 1 

487 1307 2 BEGIN 

488 1308 2 

489 1309 2 EXTERNAL REGISTER 

490 1310 2 CCB : REF BLOCK C, BYTE]; 

491 1311 § 

49 31g IF ( NOT .CCB CLUBSV_OPENED)) 

49 13135 2 THEN 

494 1319 § '¢ j ; < y 

rh 131? : The file must have been closed with 1/0 still active on it. 

497 1317 $ LIBSSTOP (OTS$_10_CONCLO) 

498 1318 2 SE 

499 1319 2! 

500 1320 i This must be an attempt to_use an unimplemented feature. It represents 
rt 136! : _an internal error in the OTS. 

208 135 LIBSSTOP (OTSS_FATINTERR); 

504 1324 

505 1325 0 

506 1326 1 END; '‘End of BASS$SS$SIGDIS_ERR 


ASSSDISPATCH.T 


00000000* 00000000* 00000000v 00000000* 00000000* 00000000v 00000 estates on te 


00000000V 00000000v 00000000v 00000000* 0 
00000000v 00000000v 00000000v 00000000v 0 
00000000v 00000000* 00000000v 00000000v 0 
00000000v 00000000* 00000000* 00000000v 0 


00000000* 00000000* 00000000* 00000000* 00000000* 00000000* 0007¢ metmeapatntase t ali 


00000000* 00000000* 00000000* 00000000* 00000000* 00000000* 00094 
00000000* 00000000* 00000000* 00000000* 00000000* 0 Or 0 


0000000* QO0AC 
00000000* 00000000* 00000000* 00000000* 00000000* 00000000 000¢4 
00000000* 00000000* 00000000* 00000000" 00000000« Bpono nob Be ors 


-PSECT 


AX-11 B 
BASRTL. 


legece Vesey’ ot 
SRC JBASDISPAT .B52;1 


BASSSDISPATCH_T 
\1=021\ 


_BASSCODE,NOWRT, SHR, PIC,2 


<BAS$$SIGDIS_JSB-BASS$AA_UDF_PRO>, 
<BASSSUDF _WLO-BASSSAA_UDF_PRO>, - 
BASSSUDF ~RLO-BASS$$AA_UDF ~PRO> 
<BASS$$SIGBIS JSB-BAS$SAA_ODF PRO>, 
<BASSSUDF _RLO-BASS$S$AA_UDF_PRO>, - 
<BASSSUDF —WFO-BASSSAA_UDF-PRO>, = 
<BASS$SUDF ~RLO-BASSSAA_ UDF > 
<BASS$$SIGBIS JSB-BAS$SAA_ODF PRO> 
<BASSSUDF _RMFO-BAS$SAA_UDF _PRO> 
<BAS$$S1GBIS_JSB-BASS$$AA_UDF_PRO>, 
<BAS$$S1GD1S~JSB-BASS$$AA_UDF —PRO>, 
<BAS$$S1GD1S~JSB-BASSS$AA_UDF ~PRO>, 
<BAS$$S1GD1S~JSB-BASSS$AA_UDF —PRO>, 
<BAS$$S1GD1S~JSB-BAS$$AA_UDF —PRO>, 
<BAS$$S1GD1S~JSB-BASS$$AA_UDF ~PRO>, 
<BAS$$S1GD1S~JSB-BAS$$AA_UDF —PRO>, 
<BAS$$$1GD1S~JSB-BAS$SS$AA_UDF ~PRO>, 
<BAS$$S$1GD1S~JSB-BAS$SS$AA_UDF —PRO>, 
<BAS$$S1GD1S~JSB-BAS$$AA_UDF ~PRO>, 
<BAS$$S1GD1S~JSB-BAS$S$AA_UDF ~PRO>, 
<BAS$$S1GD1S~JSB-BASS$$AA_UDF —PRO>, 
<BAS$$S1GD1S~JSB-BASS$S$AA_UDF ~PRO>, 
<BASSSUDF _RLO-BASS$$AA_UD >, 
<BASS$S$SIGBIS_JSB-BASSSAA_ODF _PRO> 
<BASSSUDF _RLO-BASS$AA_UD 
<BAS$$S1GD1S_JSB-BASSSAA_ODF _PRO>, 
<BAS$$S1GD1S~JSB-BASSSAA_UDF ~PRO>, 
<BASSSUDF _WLO-BASS$$AA_UD 2° 
<BASSSUDF ~RMFO-BASS$AA_UDF PRO>, - 
<BAS$$SIGBIS_JSB-BASS$AA_UDF_PRO>, 
<BAS$$S1GD1S~JSB-BASS$$AA_UDF ~PRO> 


<BAS$$SIGDIS_ERR-BASS$SAA_UDF_PR1>, - 
<BASSSUDF _WLT-BASSSAA_UDF_PRT>, - 


tty RL1-BASSSAA_ UDF ~P 


<BASSSUDF ~RL1-BASSSAA_UDF ~P 
<BASS$SIGDBIS : 

<BASSSUDF_RMF1-BAS UBF - 
<BAS$$SIGBIS_ERR-BASSSAA_UDF_PR{>, 
<BAS$$S1GDIS~ERR-BASSSAA_UDF ~PR1>, 
<BAS$$S1GD1S~ERR-BASSS$AA_UDF ~PR1>, 
<BAS$$S1GDIS"ERR-BASSS$AA_UDF ~PR1>, 
<BAS$$S1GD1S"ERR-BASSS$AA_UDF —PR1>, 
<BAS$$S1GD1S~ERR-BASSS$AA_UDF ~PR1>, 
<BAS$$S1GD1S~ERR-BASSSAA_UDF ~PR1>, 
<BAS$$S1GD1S"ERR-BASSS$AA_UDF ~PR1>, 
<BAS$$S1GD1S"ERR-BAS$SS$AA_UDF ~PR1>, 


Pete Se Se Se Be Se Be Be Se Se Se Si Se Be Se Se Be Se Ge Ge Se Se Be Be Be Be Se Se Se Be 


| 16 
| BAS$SS$DISPATCH_T 1b-5e =1984 00:19: AX=-11 Bliss-32 V4.0-74 
1-021 132 808= 138. 11 2:39 YBASRTL SREIBASDI SPAT B92; 1 
| 
| <BAS$$SIGDIS_ERR-BASS$SAA_UDF_PR1>, 
<BAS$$S1GD1S"ERR-BASS$$AA_UDF —PR1>, 
<BAS$$S1GD1S~ERR-BASSSAA_UDF -PR1>. 
<BAS$$S1GD1S-ERR-BASS$SAA_UDF -PR1>, 
<BASSSUDF_RLT-BASSSAA_UDF_PRT> 
<BAS$SSIGBIS ERR-BASSSAA ODF _PR1>, 
<BASSSUDF_RLT-BASS$S$AA_UDF - 
<BAS$SSIGBIS_ERR-BASSSAA_ODF_PR1>, 
<BAS$$SIGD1S-ERR-BASSSAA_UDF -PR1>, 
<BASSSUDF _WLT-BASSSAA_UDF_PRT>, - 
<BASSSUDF -RMF 1-BASSSAA_UDF_PR1>, - 
SEASEESIODIS-EMBASBuancbor pn 
00000000 00000000* 00000000v 00000000* 00000000* 00000000v 000F8 BASSSAA_UDE PROD: oe eDIS ISB a a Be 
e = Pe 
00000000v 00000000v 00000000v 00000000 00000000v 00000000 00110 <BASSSUDF _WL9-BASSSAA_UD >- 
00000000v 00000000v 00000000v 00000000v 00000000v 00000000v 00128 <BASSSUDF ~RL9-BASSS$AA_UDF ~PR9> 
00000000v 00000000* 00000000v 00000000v 00000000v 00000000v 90140 <BASS$$SIGBIS_JSB-BASSSAA_ODF_PR9>, 
00000000v 00000000* 000000C0* 00000000v 00000000v 00000000* 00158 <BASSSUDF_RL9-BASS$ F_PR9>, - 
00000000v 00170 <BASSSUDF —WF9-BAS$ “PRI>, = 
<BASSSUDF ~RL9-BASSSAA_UDF ~PR9>, 


<BASSSUDF_RMF9-BASSSAA_UDF_PRO>, - 
<BAS$$S1GD1S_JSB-BASS$AA_UDF_PR95>, 


<BAS$$S1GD1S~JSB-BAS$S$AA_UDF —PR9>, 
<BAS$$$1GD1S~JSB-BAS$$AA_UDF —~PR9>, 
<BAS$$S1GD1S$~JSB-BAS$S$SAA_UDF ~PR9>, 
<BAS$$$1GD1S$~JSB-BAS$$AA_UDF —PR9>, 
<BAS$$S1GD1S~JSB-BAS$S$AA_UDF —PR9>, 
<BAS$$S1GD1S~JSB-BASS$S$AA_UDF -PR9>, 
<BAS$$S1GD1S$~JSB-BASS$$AA_UDF ~PR9> 
<BAS$$S1GD1S~JSB-BASSS$AA_UDF —PR9>, 
<BAS$$S1GD1$~JSB-BAS$SAA_UDF ~PR9>, 
<BAS$$S1GD1S~JSB-BASSSAA_UDF —-PR9>, 
<BAS$$$1GD1S~JSB-BASS$$AA_UDF ~PR9>, 
<BAS$$S1GD1S~JSB-BASS$$AA_UDF ~PR9>, 
<BASSSUDF _RL9-BASSSAA_UDF_PR9> 
<BAS$$SIGBIS_JSB-BASSSAA_ODF_PR9>, 
<BASSSUDF _RLO-BASSSAA_UDF _PR9I>, - 
<BAS$$S1GD1S_JSB-BASSSAA_ODF_PR9>, 
<BAS$$S1GD1S~JSB-BASSSAA_UDF ~PR9>, 
<BASSSUDF _WL9-BASSSAA_UDF _* 
<BASSSUDF “RMF 9-BASSSAA_UDF _PR9>, - 
<BAS$$S1GB1S_JSB-BASSS$AA_UDF _PR9>, 
<BAS$$S1GD1S~JSB-BASSSAA_UDF ~PR9> 
00000000* 00000000* 00000000* 00000000 00000000* 00000000v 00174 BASSSAA_REC_PRO:: 

.LONG  <BASS$S$SIGDIS_JSB-BASSSAA_REC_PRO>, 
00000000v 00* 00000000v 00000000* 00000000v 00000000* 0 18C¢ <BASSSREC_WSCO-BASSSAA_REC_PRO>, - 
00000000v 000v 00000000v 00000000v 00000000v 000 9000v 1A4 <BASSS$REC“RSLO-BASSSAA_REC_PRO>, - 
00000000V 00000000" 00000000v 00000000v 9900000v 0000000v 0018¢ <BASSSREC_PSE-BASSSAA_REC_PRO>, 
00000000V 00000000* 00000000* 00000000v 00000000v 90000008 0104 <BASSSRECTRSLO- S$$AK_REC_PRO>, 

000000v O01EC <BASSSREC_WFO-BASSSAA_REC_PRO>, - 
<BASSSRECRSLO-BASSSAAK_REC PROD, - 
<BASS$$SIGBIS is - ASSSKA REC PRO>, 
<BASSSREC_RMFO-BASSSAA_REC PRO>, - 
<BAS$$S1GD1S_JSB-BASSSAA_REC_PRO>, 
<BASSS$REC_GSE-BASSS$AA_REC_PRO>, - 


t#eetevpevoeenvesn 
Sete Se Be Se Be He Oe Be Se Be Be Se Be Se Se Se Be Se Be Se Se Se Se Se Se Se He Se Be Be 


Sete Se Se Se Se Se Se Se Be Se 


00000000* 00000000* 00000000v 00000000* 
00000000v 00000000v 00000000v 00000000* 


00000000v 00000000v 00000000v 00000000v 00000000v 
00000000v 00000 0000 


000* 00000000v 00000000v 
00000000v 00000000* 00000000* 00000000v 


00000000* 00000000* 00000000v 00000000* 
00000000v 00000000v 00000000v 9900009 


00000000v 00000000v 00000000v 00000000v 
00000000v 00000000* 00000000v 00000000v 


; Honey susan tz 


< 
00000000* 00000000v 001F0 preneaick i “ei 


444 44 4 44944 00208 
00000000v 00220 

0000v 00000000v 00238 
00000000v 00000000* 00250 
00000000v 00268 


00000000* 00000000v 0026C BASSSAA_REC PRD: 


000000v 00000000 B4 


<BASS$ 


A 

@ 
> 
n” 
sad 


<BAS$ 
<BASS$ 


<BASS 


YDBDDY WMYYDANVDODBDNVVMNMNMHKHMMNNNNNMYM 


Bi ete: V4.0-7 
CIBASDISPAT. 3 2:1 


- 1S0-GASSSAA. ec PRI>, 
C1-BASSS$AA_REC_PR1> 
L1-BASSS$AA_ yee =PRI>, - 


o 
te 
72) 
@ 
a 

@ 
> 
7) 
Sd 
> 

a 
Po 


VvvVVvVVVvVVVv 


“saute REC “pat. 
C9-BASS php? - 
L9-BASSSAA~ REC"P 

_JSB-BASS$SAA_REC ReRd>, 


Page 


Be Se Se Se Se Se Se Se Se Be Se Se Se Be Be Se Se Se Se Be 


Pee Se Se Se Be Be Be Be Oe Se Oe Be Be Se Be Be Be Se Se Be Se Be Se Bs Se Be Se Se Be Be 


14 
(9) 


= 


| 
|BASSSDISPATCH.T 
1-021 


00000000v 00000000* 00000000* 00000000v 00000000v 00 


0000 00000 aes tn GORD 


08 FC AB €8 00002 
00000000G 8F DD 00006 


6 
000000006 ot 
000000006 00 1 


3; Routine Size: 28 bytes, Routine Base: _BASSCODE + 02E8 


-EXTRN 


16 
EepciSRt PESBB MRSA SMR 


BASRIL’ SRC BASDISPAT. 7392; 1 


<BASSSREC_RS 9-BA SSAA aft PRI>, = 
<BASSSREC_WF9-BASS$AA_REC PROP. 
<BASS$REC RSL OTBASSSAR RET_P 
<BASS$$SIGBIS jSB-BA BASSSAA REC’ Br 5. 
<BASSSREC_RMF9-BASSSAA_REC_PR9> 
<BASSSS1GD 1s, JSB-BASSSEA.REC PROD, 
<BAS$$S1GD1S~JSB-BAS$$AA_REC_PRO>, 
<BAS$$S1GD1S~JSB-BAS$S$AA_REC_PRO>, 
<BAS$$S1GD1S~JSB-BASSS$AA_REC_PRO>, 
<BAS$$S1GD1S—JSB-BAS$$AA_REC_PRO>, 
<BAS$$S1GD1S~JSB-BAS$$AA_REC_PR9>. 
<BAS$$S1GD1S—JSB-BAS$$AA_REC_PR9>, 
<BAS$$51GD1S—JSB-BAS$$AA_REC_PR9>, 
<BAS$$SIGDIS-JSB-BASS$AA_REC_PR9>, 
<BAS$$$1GD15~JSB-BAS$$AA_REC_PR9>, 
<BAS$$S1GD1S~JSB-BASS$AA_REC PR9>. 
<BAS$$S1GD1S~JSB-BASSSAA_ 
<BAS$$S1GD1S~ JSB-BASS$$AA_REC “PROD. 
<BASSSREC_MIN9-BASSSAA_REC_PR9> 
<BAS$$S1GBIS_JSB-BAS$$AA_REC_PR9>, 
<BASS$SREC_RSC9-BASSS$AA_REC_PR9>, = 
<BAS$$S1GBIS_JSB-BASS$AA_REC_PR9>, 
BAS$$S1GD1S~JSB-BASS$AA_REC PR9>, 
<BASSSREC_MPR9-BASSSAA_REC_PR9>, - 
<BASSS$REC RMF 9-BASSSAA-REC PROD. = 
1GB1S_JSB-BASSSAA_REC_PR9>, 


<BAS$$S $B 
<BAS$$S1GD1S~JSB-BASS$SAA_REC_PR9> 


ores FATINTERR ors O_CONCLO 
LIBSS TOR. BASSSUDF RE 


BASSSUDF-RMF9, BASSSREC_RSL 
ASSSREC-RSL1, BASSSREC-RSLO 
BASSSREC_WFO, BASSSREC_OF1 
BASSSREC_WF9. BASSSREC—WSLO 
BASSSREC_WSL1, BASSSREC_WSLO 
BASSSREC_RMFO, BASSSREC_RMF 
ASSSREC_RMF9, BASSSREC-GSE 
BASSSREC_PSE, BASSSREC_MPRO 
ASSSREC MING. BASSSREC_MIN1 
ASSSREC-MIN9, BASSSREC_ML11 

BASSSREC_MRE1 


fOrss, FATINTERR 
LTBSSTOP 


ete 
JBASDISPAT.B32;1 


s-32 v4 


nun 


BASSSDISPATCH_T 


1-021 


16 
| PAR ETOE SORT CAS 18-Sep-19 
| 1- 14-Sep-19 


ROUTINE BASS$$SIGDIS_JSB : JSB_UDFO NOVALUE = : 


B 


2:38 AX-11 a V4.0-74 Page 17 
4: BASRTL.SRCJBASDISPAT.852;1 (10) 


++ 

FUNCTIONAL DESCRIPTION: 
Signal an error from the 1/0 dispatch process. The error code 
signalled sepends on the statement type. One statement type is 
used by CLOSE to catch dispatches on a closed unit, which can 
happen if the CLOSE is done as part of recursive 1/0. If the 
statement type is not the one used by CLOSE, we have an error 
in the RTL (an invalid statement type). 

FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
ISBSB_STTM_TYPE.rb.r Statement type of 1/0 statement 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


Signals OTS$_I0_ CONCLO if the LUB is not open, or 
OTSS_FATINTERR Tf it is. 


WWIWAIWAIAIRSPIPOPIPYNINIPUPID SS SS O00 
WN —O OONAOUES WD “ODO ONOUS WI "OO0OW 


' 

' 

i 

i 

' 

i 

i 

i 

' 

i 

i 

i 

' 

i 

i 

as 
BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


IF ( NOT .CCB CLUBSV_OPENED)) 
THEN 


DDD DEDEDE DAD TT BB BS BB BE EB AAAI WNW 


'¢ 
The file must have been closed with 1/0 still active on it. 
gg BESTOP (OTS$_10_CONCLO) 


'¢ 


i This must be an attempt to use an unimplemented feature. It represents 
an internal error in the OTS. 


LIBSSTOP (OTSS_FATINTERR); 


AONE BB EEE EEE = Seve 


WR 0 OO NOU EWN 0 OONOU EWN “OC OONOU 
a a ee ee ee ee eee eee eee 


WS. AIAN NIA NIAINIWI AINA AAA AAIWN AAAI NAW AIAN WNW WANNA AWN ANN AANA 


MRO OONOA UES WN 0 OD NOAUEWN $0 OONOAUE WN 0 COON UE WN (OO CONAOUS WN O0OONn 
=P PIPOPOPIPINIPINPOPOPU AIP 8 9 


Be Be Oe Oe Oe Oe Oe Be Oe Oe Oe Be Oe Oe Oe Os Be Be Se Oe Oe Os Oe Os FH Se Oe Oe Oe Oe Oe Oe Os Oe Os Os oe OF Oe SEOs Os Oe 8 Ss Os Oe Oe Os Se SHOE Se Sseee 
POPUP PUPP PV PVP DPV DVIPS SUSU SUSU SUSU SUSU SISUSTSISTSI ST SISTSTST ST STISIIIIUIUIUIUIVIII? o) 


OOo NNN NAN NN 


oon 


0 
END; 'End of BAS$$SIGDIS_JSB 


: pommee® Hh ng Complete 


H 16 


SAR STOTEPATCR,. T 1e-3ep-] 984 90:} 9:30 VAX-11 Bliss-32 V4.0- Page 18 
1-02 14-Sep-1984 11:54:52 CBASRTL.SRCJBASDISPAT. 5 2:1 (10) 
08 FC AB €E8 00000 BASS$SIGDIS_JSB: 
BLBS -4(CCB), 1$ : 1368 
00000000G 8F DD 00004 PUSHL #0TS$_I0_CONCLO : 1373 
06 11 QO00A BRB 2$ : 
00000000G 8F ODD BRON 1$: PUSHL #OTSS_FATINTERR 3; 1379 
000000006 00 01 FB 00012 2$: CALLS #1, LYBS$STOP : 
05 0001 RSB 3; 1382 
; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0304 
564 1383 1 END ‘End of module 
s 565 1384 1 
; 566 1385 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 798 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: COMMAND QUALIFIERS 
: PL ISE/EHE CK CF SELO, INITIAL .OPT IAI LED /UGTRACEAL 151, ISS:BASBI SPAT /OR.) 20839: GASES SPAT MSRC$:BASDISPAT/UPDATE=(ENH$:BASDISPAT 
ng PR 54 code + 744 data bytes 
Elapsed. Time: 00:27.1 
Lines/C 


6558 
Lexenes/CPU-Rin: 34456 
Used: 135 pages 
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